Shareware Grab Bag/Shareware Grab Bag.iso/007/function.arc/FUNC57.INC

Text File | 1985-06-15 | 384 b | 18 lines

{ Get or set a file's date and time                                    }

FUNCTION Func57 (H, D, T : INTEGER) : BOOLEAN;
 BEGIN
  WITH Registers DO
   BEGIN
    AX:=((AX AND $00FF) OR ($57 SHL 8));
    BX:=H;
    CX:=T;
    DX:=D;
    MSDOS (Registers);
    IF (Flags AND $0001)=1 THEN
     Func57:=TRUE
    ELSE
     Func57:=FALSE;
   END;
 END;